home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / mv2call.zip / MV2CALL.BAS < prev    next >
BASIC Source File  |  1992-01-22  |  1KB  |  57 lines
  1. 'this program copies the file pointed to to the caller log pointed to
  2. 'this version is recursive and represents the EXE version being distributed
  3. 'it is pure QB/PDS source.
  4. 'Copyright 1991 by Ken Prevo  ALL RIGHTS RESERVED
  5.  
  6. DEFINT A-Z
  7. DECLARE FUNCTION CallCln$ (x$)
  8.  
  9. IF COMMAND$ = "" THEN
  10.    PRINT "MV2CALL SOURCE.NAM  CALLER1"
  11.    PRINT "Where: SOURCE.NAM is the name of the file to move"
  12.    PRINT "       CALLER1 is the name of the caller log to copy to"
  13.    END
  14. END IF
  15. p% = INSTR(COMMAND$, " ")
  16. IF p% = 0 THEN
  17.    PRINT "type MV2CALL for parameters--space delimit missing"
  18.    END
  19. END IF
  20. Src$ = LEFT$(COMMAND$, p% - 1)
  21. Call$ = MID$(COMMAND$, p% + 1)
  22. IF  dir$(Src$)="" THEN
  23.     PRINT "Missing File: "; Src$
  24.     END
  25. END IF
  26. IF dir$(Call$)="" THEN
  27.     PRINT "Empty File: "; Call$
  28. END IF
  29. OPEN Src$ FOR INPUT AS 1
  30. OPEN Call$ FOR APPEND AS 2
  31. DO
  32.    LINE INPUT #1, x$
  33.    PRINT #2, CallCln$(x$)
  34. LOOP UNTIL eof(1)
  35.  
  36. CLOSE
  37. KILL Src$
  38.  
  39. FUNCTION CallCln$ (x$)
  40.     x$ = LTRIM$(RTRIM$(x$))
  41.     l% = LEN(x$)
  42.     SELECT CASE l%
  43.       CASE 0 TO 61
  44.         CallCln$ = x$ + SPACE$(62 - l%)
  45.       CASE 62
  46.         CallCln$ = x$
  47.       CASE ELSE 'it is greater need to put into pieces
  48.         p% = 62
  49.         DO UNTIL Mid$(x$, p% + 1,1) = " " OR p% = 0
  50.            p% = p% - 1
  51.         LOOP
  52.         IF p% = 0 THEN p% = 62          'no spaces in line
  53.         CallCln$ = LEFT$(x$, p%) + CHR$(13) + CHR$(10) + CallCln$(MID$(x$, p%))
  54.     END SELECT
  55. END FUNCTION
  56.  
  57.